home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_10_1986_Transactor_Publishing.d64 / phrase splitters (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  77 lines
  1. 0 rem phrase splitters (aug 25/84)    :
  2. 1 :
  3. 2 rem 0 statements, 2 functions
  4. 3 :
  5. 4 rem keyword characters: 11
  6. 5 :
  7. 6 rem keyword     routine  line   ser #
  8. 7 rem f/first$(   first    3330    028
  9. 8 rem f/bf$(      bf       3334    029
  10. 9 :
  11. 10 rem ================================
  12. 11 :
  13. 606 .asc "first$[168]bf$[168]"
  14. 1606 .word first-1,bf-1
  15. 3330 first sec
  16. 3332 .byte $24
  17. 3334 bf clc
  18. 3336 php
  19. 3338 jsr $aef4
  20. 3340 jsr $b6a3
  21. 3342 sta t3
  22. 3344 txa
  23. 3346 pha
  24. 3348 tya
  25. 3350 pha
  26. 3352 lda t3
  27. 3354 jsr $b47d
  28. 3356 pla
  29. 3358 sta $23
  30. 3360 pla
  31. 3362 sta $22
  32. 3364 ldy #$ff
  33. 3366 sty t4
  34. 3368 fbf1 iny
  35. 3370 fbf2 cpy t3
  36. 3372 beq fbf4
  37. 3374 lda ($22),y
  38. 3376 and #$7f
  39. 3378 cmp #" "
  40. 3380 beq fbf3
  41. 3382 lda #0
  42. 3384 sta t4
  43. 3386 beq fbf1
  44. 3388 fbf3 bit t4
  45. 3390 bpl fbf4
  46. 3392 dec t3
  47. 3394 inc $22
  48. 3396 bne fbf2
  49. 3398 inc $23
  50. 3400 bne fbf2
  51. 3402 fbf4 plp
  52. 3404 bcs fbf5
  53. 3406 tya
  54. 3408 pha
  55. 3410 sec
  56. 3412 sbc t3
  57. 3414 eor #$ff
  58. 3416 clc
  59. 3418 adc #1
  60. 3420 tay
  61. 3422 pla
  62. 3424 adc $22
  63. 3426 sta $22
  64. 3428 bcc fbf5
  65. 3430 inc $23
  66. 3432 fbf5 tya
  67. 3434 jsr $b47d
  68. 3436 tay
  69. 3438 fbf6 dey
  70. 3440 cpy #$ff
  71. 3442 beq fbf7
  72. 3444 lda ($22),y
  73. 3446 sta ($62),y
  74. 3448 bcc fbf6
  75. 3450 fbf7 jmp $b4ca
  76. 3452 ;
  77.